WORKSHOP 


Invulformulieren in Excel 


Leden beheren in Excel 


Ben je lid van een club of vereniging, dan hou je waar- 
schijnlijk het ledenbestand bij in Excel. Met behulp van 
formulieren kan je ervoor zorgen dat je niet meer met 
het ‘rooster’ geconfronteerd wordt bij het toevoegen van 
nieuwe leden. In deze workshop laten we je zien hoe je 
makkelijk werkt met Excel-formulieren. # rreverick corors 


p 


WAT DOEN WE? il 


[- een vereniging of club, of zelfs een 
kleine groep vrienden, is het altijd handig 
om de gegevens van de leden up-to-date te 
houden. Excel is daar het ideale programma 
voor. Jij weet misschien wel hoe je de leden- 
lijst kan aanpassen in Excel, maar hoe zorg je 
ervoor dat iemand anders die lijst kan bijwer- 
ken zonder dat hij ‘per ongeluk’ een groot 
aantal gegevens wist? Met formulieren kan je 
die klus klaren! Een formulier laat je toe 
exact die informatie op te vragen die nodig 
is, en die automatisch aan de lijst toe te 
voegen… 


WAARMEE? 


HOELANG? 


MOEILIJKHEID? 


d 


STAP 1 / WERKBLADEN AANMAKEN 

Van elk lid van onze vereniging hebben we volgende informatie nodig: 
naam, voornaam, straat en huisnummer, postnummer, gemeente, tele- 
foonnummer, e-mailadres en het type lid (individueel of gezin). Maak 
deze kolomhoofdingen dus aan op de eerste rij van het eerste werkblad 
(in cellen A tot I). Wij benoemen de cellen als volgt: Naam, Voornaam, 
SrRAAT, Nr, PostNR, GEMEENTE, Ter, Ear, Type (zie afbeelding 1). Vervolgens 
wijzigen we de naam van de drie werkbladen (Brao1, BLap2 en BLao3). Klik 
met de rechtermuisknop op Bran1, kies NAAM wiJzicEN en geef Dara in. 
Verander de naam van Brap2 in List en van BLAn3 in Backarounp. Vervol- 
gens klik je op BLap2, waar je de types van een lidmaatschap ingeeft: in 
cel A1 tik je Tvpe in, in cel A2 Gezin en in cel A3 InprvipueeL. 


E Microsoft Excel « ledonlijst.xts 
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Naam Voornaam Straat Nr Posttir Gemeente _ Tel Email Type 
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Geef de kolomhoofdingen in. 
STAP 2 / BEVEILIGING VERLAGEN 


Standaard voert Excel 2003 formulieren — gemaakt in VBA — niet uit. 
Zet dus eerst de macrobeveiliging op een lager niveau: klik op Extra, 
Macro, Beverrieine en verander het BeverLieinesNiveAu van Hooe naar GeMip- 


JULLIE VLIEGOREN NAUWKEURIG 
INVULLEN DAMES |!!! 


IN EXCEL … 


LEDENADMINISTRATIE 


DELD — of Laag (zie afbeelding 2). Je moet dit doen op elke computer 
waarop het Excel-bestand uitgevoerd wordt! 


Beveiliging 


Vertrouwde uitgevers 


O Erg hoog. Alleen macro's die zijn geïnstalleerd op vertrouwde locaties mogen 
worden uitgevoerd. Alle andere macro's worden uitgeschakeld, ongeacht of 
deze zijn ondertekend. 


Q Hoog. Alleen macro's met een digitale handtekening uit betrouwbare 
bronnen kunnen worden uitgevoerd. Macro's zonder een digitale 
handtekening worden automatisch uitgeschakeld, 


© Gemiddeld. U kunt zelf bepalen of mogelijk onveilige macro's wel of niet 
moeten worden uitgevoerd. 


OQ Laag (niet aanbevolen). U wordt niet beschermd tegen mogelijk onveilige 
macro's. Gebruik deze instelling alleen als er een viruscontroleprogramma is 
geïnstalleerd of als u hebt gecontroleerd of alle documenten die u opent, 
veilig zijn. 
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STAP 3 / FORMULIER AANMAKEN 


Druk gelijktijdig op Aur+F11 om VBA (Visual Basic for Applications) op 
te starten. Links, onder Prosecr — VBAProgect kies je nu de bestands- 
naam, bijvoorbeeld Lepen.xus. Ga vervolgens naar INvoegEn, UserForm om 
de formuliereneditor te starten. Links, onder EreenscHappeN, raden we je 
aan om de standaardnaam (UserFormi) te wijzigen in een andere naam, 
zoals FRMToevoegen. Dit doe je door op de naam te klikken en het Venster 
ErGENSCHAPPEN op te roepen (via Beeuo, of met de sneltoets F4). Nu kan 
je de waarde bij (Name) naar wens aanpassen. Verander ook de titel van 
het formulier, want dit krijg je te zien in de blauwe balk. Doe dit onder 
CAPrroN — wijzig dit van UserForm1 naar LEDEN TOEVOEGEN (zie afbeelding 
3). 
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Pas het beveiligings- 
niveau aan om formu- 
lieren toe te staan. 


Het formulier is voorlopig nog leeg. 


STAP 4 / EERSTE ELEMENT TOEVOEGEN AAN HET FORMULIER 


In het formulier moeten we ruimte voorzien voor alle elementen — 
naam, voornaam, straat, enzovoort. Vergroot daarom het formulier 
door met de muis de onderste rand naar onderen te slepen. Vervolgens 
kan je de elementen toevoegen. Dit doe je met de werkbalk Werkset. Zie 
je die niet, klik dan op het voorlaatste icoontje in de knoppenbalk (links 
van het vraagteken). Wij hebben enkel de elementen Bisschrirr en TekKsr- 
vak nodig. Klik op Biuscurirr en teken een kader linksboven in het for- 
mulier. LaeL1 verschijnt nu (zie afbeelding 4a). Ga vervolgens naar het 
EiGENSCHAPPEN-venster en wijzig (Name) van LageL1 naar LBLNAAM. Daarna 
ga je opnieuw naar Caption en wijzig je Lageu1 naar de beschrijving van 
de cel, in dit geval Naam. Naast Naam maak je nu vanuit de Werkset een 
Tekstvak aan — opnieuw door te slepen (zie afbeelding 4b). Verander 
TexrBox1 naar TxTNAAM. 


Maak een Label 
aan. 


Morten God omeen Opmaak Gammmerg Umar Fre Pmgamsnengen pesten Ge 
2 RER 4E 


… en daarna 
een Textbox. 
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EXTRAATJES 


Met deze workshop kan je zelf een Excel- 
werkblad maken met een formulier. Toch Janssens 
raden we je aan hier niet op te houden. ee 


Kerkstraat 


Op onze site vind je een vol- 
ledig uitgewerkte versie van deze work- 
shop, inclusief enkele controles op inge- 
voerde gegevens (ook wel ‘validatie’ 
genoemd). Dat wil zeggen dat de gebrui- 
ker een waarschuwing krijgt als hij of zij 
het type lid niet heeft geselecteerd, of als 
het e-mailadres niet correct lijkt te zijn. 
Ook gaat de versie op onze website na of 
een lid al in de lijst staat, en krijg je de 
mogelijkheid om de gegevens van dat lid 
te bewerken. We raden je aan om de code 
goed te bekijken en vooral zelf uit te 
proberen! 


Leden Toevoegen 


8888 
Edegem 
051202020 


Met enkele lijntjes 
code kan je zelfs 
nagaan of een lid al 
in de lijst staat. 


STAP 5 / ANDERE ELEMENTEN TOEVOEGEN 


Vervolgens voeg je op dezelfde manier alle andere elementen toe. Ge- 
bruik deze namen: 

«_LBLVOORNAAM, Caption: VoorNAAM en daarnaast TxTVooRNAAM 

* LBLSTRAAT, Caption: STRAAT, en daarnaast TXTSTRAAT 

« LBLNr, Caption: Nr, en daarnaast TxtNr 

* LBLPostNr, Caption: Postnummer, en daarnaast TxTPostNr 

* LBLGEMEENTE, Caption: GEMEENTE, en daarnaast TXTGEMEENTE 

 LBLTeL, Caption: Ter, en daarnaast txrTeL 

 LBLEmMai, Caption: Emar, en daarnaast TxTEMaIL 


Daaronder maak je nog een label LeLTvPE aan, met de Caption Tyre. 
Daarnaast zetten we echter geen Textbox, maar een combobox of 
Keuzelijst met invoervak (vierde element van de werkset). Hier kan de 
gebruiker kiezen uit InprvioveeL of Gezin, de elementen die in het werk- 
blad List vermeld staan. Noem deze combobox cMeTvee. Tot slot voegen 
we nog een knop Invoeeen toe. Dit is een Oppracutknop in de werkset 
(laatste knop van de tweede rij). Wijzig de naam van deze knop in cmoOk 
en wijzig de Caption in Lt toevoegen (zie afbeelding 5). 


Beeld Ioeezen Opmaak Emteesmorg (Jboeen 


» 


Het formulier, compleet met alle elementen. 


De programmaco- 
de om een nieuw 
lid toe te voegen. 
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Private Sub cmdOk Click (1 


+ Kd VBAProject (leden.xls) 
= 8 VBAProject (ledenlijst…ds) 
=$ Microsoft Excel -objecten 
EE) Blad1 (Data) 

EB) Blad2 (List) 
EE) Blad3 (Background) 
&) ThisWorkbook 

=| EF Formulieren 


Dim rowNr As Integer 
Dim foundRecord As Boolean 


rowNr = 0 
foundRecord = False 


‘Op welke rij komt het volgende record 
ActiveWorkbook.Worksheets ("Data") .Cells(2, 


foundRecord = True 
rowNr = ActiveCell.Row 
Else 
ActiveCell.Offset(1, 0).Select 
End If 
Wend 
rowNr = ActiveCell.Row 


‘alle gegevens in het werkblad zetten 


emdOk CommandButton 
Alfabetisch | gecategoriseerd 
cmdOk 


False 
LL] &Haoooooor 
1- fmBackStyleC 
False 


iditoevegen frmToevoegen.txtNaam = "" 


frmToevoegen.txtVoornaam 
frmToevoegen.txtStraat = 
ErmToevoegen.txtNr = "" 
frmToevoegen.txtPostNr = 
frmToevoegen.txtGemeente 
ErmToevoegen.txtIel = "" 
EfrmToevoegen.txtEmail = "" 
ErmToevoegen.cmbType = "" 
End Sub 


False 

True 

Tahoma 

IN 2-20000012 
24,05 

0 

78 

False 

(Geen) 

0 - fmMousePoir 
(Geen) 

7 - fmPicturePos 
0 


True 
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STAP 6 / PROGRAMMACODE TOEVOEGEN 


Klik je nu op het groene pijltje in de werkbalk, dan heb je een mooi 
formuliertje. Maar er gebeurt niets mee. Dat is normaal, want we 
hebben nog geen programmacode toegevoegd: Excel moet namelijk 
weten welke gegevens waar in het werkblad moeten terechtkomen. 
Dubbelklik daarvoor op de knop Lip toevoegen. Een venster met de regel 
PRIVATE SuB cMDOK _ Cuick() verschijnt nu (zie afbeelding 6). De code die 
we hier intikken, wordt dus uitgevoerd als iemand op de knop cmpOk 
klikt. Gegevens toevoegen aan een werkblad kunnen we doen met deze 
code: 


ActrveWorksook.Worksneers (“para”) .Ceuus(riJ, KOLOM) = TEKST 


Die tekst hebben we natuurlijk net ingegeven in het formulier, en die 
kunnen we opvragen met TxrNAAM.Text. Doen we dit 9 keer (voor elke 
kolom 1 keer), dan voegen we alle gegevens van een lid toe. We moeten 
echter eerst bepalen in welke rij we deze gegevens invullen! Dit doen 
we door gebruik te maken van AcriveCeLL.Vauve. Enkel als deze waarde 
leeg is, mogen we de rij in kwestie gebruiken voor de gegevens van een 
nieuw lid. Voeg het eerste lid manueel toe aan het werkblad Dara en 
kies voor type Gezin of Inprvioveer. Vervolgens kan je het formulier 
uitvoeren en merk je dat Excel automatisch de eerste lege rij uitkiest 
voor een nieuw lid. We zorgen er ook voor dat het formulier ‘geleegd’ 
wordt nadat een nieuw lid werd toegevoegd, zodat je makkelijk een 
tweede lid kan toevoegen. Dit doen we door de tekst van elke textbox 
op “” (leeg) te zetten. 


1).Select 
While ActiveCell.Value <> "" And foundRecord = 
If ActiveCell.Value = txtNaam.Value And ActiveCell.Offset(0, 1).Value = txtVoornaam Then 


ActiveWorkbook.Worksheets ("data") „Cells (rowNr, 
ActiveWorkbook.Worksheets ("data") .Cells(rowNr, 
ActiveWorkbook.Worksheets ("data") .Cells(rowNr, 
ActiveWorkbook.Worksheets ("data") .Cells (rowNr, 
ActiveWorkbook.Worksheets ("data") .Cells(rowNr, 
ActiveWorkbook.Worksheets ("data") .Cells (rowNr, 
ActiveWorkbook.Worksheets ("data") .Cells(rowNr, 
ActiveWorkbook.Worksheets ("data") .Cells(rowNr, 
ActiveWorkbook.Worksheets ("data") .Cells(rowNr, 


False 


txtNaam.Text 
txtVoornaam.Text 
txtStraat.Text 
txtNr.Text 
txtPostNr.Text 
txtGemeente.Text 
txtTel.Text 
txtEmail.Text 
cmbType.Text 


EE B Od on AN A | 


Leden toevoegen 


STAP 7 / HET TYPE LID INGEVEN 


Heb je het formulier uit stap 6 uitgevoerd, EE 
dan zie je dat alles werkt, behalve het in- Straat 
geven van het type lid. Hiervoor is nog een ie 
lijntje code vereist. Klik onder de knop- 
penbalk op UserForm en kies daarnaast Ac- 
TIVATE. Hier komt alle code die moet uitge- 
voerd worden bij het starten van het 
formulier. De keuzelijst moet de types be- 


Naam 


Lid toevoegen 


vatten die in het werkblad List werden 
ingegeven. Dat kan met de lijn cmsTyee.Ap- 
pIrem (tekst). Elk item (in ons geval twee: 
Gezin en Inprvipvee) wordt op deze manier 
toegevoegd aan de keuzelijst (zie afbeelding 7). Komt er later een derde 
optie bij (bijvoorbeeld Beprrar), dan kan je dit gewoon toevoegen aan het 
werkblad List en moet je de Rance veranderen onder UserForm _ AcTIvare. 


STAP 8 
HET FORMULIER AUTOMATISCH STARTEN 


Als je wil dat het formulier automatisch opgestart wordt bij het lance- 
ren, dan moet je nog één lijn code toevoegen. Ga met de muis onder 
VBAProvecr naar TrisWorksook, klik er met de rechtermuisknop op en 
kies PROGRAMMACODE WEERGEVEN. Onder Private SuB WorkBooK _ Open() tik je 
FRMTOEVOEGEN.SHOW. © 
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De keuzelijst. met de twee opties. 


